#! /usr/bin/perl

use diagnostics;
use strict;

my $a = 1;
my @b = (1);
my %c = ('1'=>'1',);

my $d;
$d = \$a;
my $ok = ref $d;
print "$ok\n";
$d = \@b;
$ok = ref $d;
print "$ok\n";
$d = \%c;
$ok = ref $d;
print "$ok\n";
print "--------------------------\n";
$ok = ref $a;
print "$ok\n";
$ok = ref @b;
print "$ok\n";
$ok = ref %c;
print "$ok\n";
print"ok tudo vazio.";
print "--------------------------\n";
%c = hash();
$ok = ref \%c;
print "$ok\n";

sub hash{
	
	return 'A';
}